-- card: 4949 from stack: in
-- bmap block id: 0
-- flags: 0000
-- background id: 2777
-- name: Message Writing
----- HyperTalk script -----
on opencard
  global lastday
  put lastday into field "laston"
  set locktext of card field "massage" to false
  put the abbrev date into field "now"
end opencard

on returnkey
  global port
  get card field "Massage"
  sendSPort port,false,it&return
  wait 1 secs
  Answer "Sign it and send it?" with "Yes" or "Abort" or "Just send"
  if it="Yes" then
    sendSPort port,false,"*$"&return
    wait 20
    sendSPort port,false,"*s"&return
  else if it="Abort" then sendSPort port,false,"*q"&return
  else sendSport port,false,"*s"&return
  go card "Mail Functions"
end returnkey

on idle
  put the time into field 4
end idle

on closecard
  put empty into card field "massage"
end closecard


-- part 1 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=14 top=112 right=302 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: massage
----- HyperTalk script -----
on mouseup
  global go
  set locktext of me to false
  if go=1 then
    click at the clickLoc
    click at the clickLoc
    put the selection into findword
    if findword <> empty then
      sendSport port,false,findword&return
      ask "Replace "&findword&" with what?"
      put it into replaceword
      sendSPort port,false,replaceword&return
      ask "What lines to affect (format #-#,#,#-)?"
      sendSPort port,false,it&return
      sendSport port,false,"a"&return
      put replaceword into the selection
    end if
    put 0 into go
  end if
end mouseUp



-- part 2 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=55 top=62 right=111 bottom=448
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 


-- part 7 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=14 top=305 right=327 bottom=114
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Title change
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,return
  wait 10
  sendSPort port,false,"*"&return
  wait 10
  sendSPort port,false,"t"&return
  ask "What is the new title?"
  sendSPort port,false,it&return

end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=405 top=304 right=326 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Protection
----- HyperTalk script -----
on mousedown
  global port
  sendSPort port,false,return
  wait 10
  sendSPort port,false,"*"&return
  wait 10
  sendSPort port,false,"p"&return
  put the mouseloc into myPlace
  put item 1 of myPlace into horiz
  put item 2 of myPlace - 10 into vert
  get popupmenu("Contract Message;Make deleteable or undeleteble;Password;None",4,vert,horiz)
  if it = 1 then sendSPort port,false,"c"&return
  if it = 2 then sendSPort port,false,"m"&return
  if it = 3 then sendSPort port,false,"p"&return
  else sendSPort port,false,"a"&return
end mousedown



-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=54 top=31 right=68 bottom=90
-- title width / last selected line: 0
-- icon id / first selected line: 21060 / 21060
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  show card field "info"
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=409 top=88 right=110 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Import Text
----- HyperTalk script -----
on mouseUp
  import("card field 1")
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=5 top=3 right=29 bottom=79
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quit/Done
----- HyperTalk script -----
on mouseUp
  go to card "Mail Functions"
end mouseUp



-- part 14 (field)
-- low flags: 80
-- high flags: 0004
-- rect: left=52 top=138 right=253 bottom=460
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: addition


-- part 15 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=399 top=223 right=247 bottom=452
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Send
----- HyperTalk script -----
on mouseUp
  global port
  get card field "addition"
  sendSport port,false,it&return
  put return&it after card field "massage"
  hide card field "addition"
  hide button "send"
  put empty into card field "addition"
end mouseUp



-- part 16 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=55 top=62 right=282 bottom=448
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: info
----- HyperTalk script -----
on mouseup
  hide card field "info"
end mouseup


-- part contents for card part 2
----- text -----
Enter your message here.  Type return when you are done the WHOLE MESSAGE.  Certain features in the board, such as CREATING you're signature cannot be done from this stack, and must be done on line using a normal terminal program. 
Click the cursor here before hitting return.

-- part contents for background part 1
----- text -----





Tue, Jul 5, 1988, 5:59 PM

-- part contents for background part 4
----- text -----
Thu, Sep 22, 1988

-- part contents for background part 5
----- text -----
8:59 PM

-- part contents for card part 16
----- text -----
Protect Message

This command allows the user to protect or unprotect his/her message.  
There are two different types of protection for messages.  If the message 
is public, then the user can protect the message by making it a password 
protected message.  Password protected message are only be read by 
superusers, the author of the message, the receiver of the message, and 
anyone else that knows the password of the message.  If the message is 
private, then the message can be protected by making it a contract 
message.  Contract messages are not deleteable by the receiver of the 
message.  Thus, the author of the message can check back on the message 
and determine whether it has been read.  Remember, that this message base 
keeps track of how many times a message has been read.  However, a 
superuser can still read any message no matter how it is protected.  They 
can also delete any message including a contract message even if they are 
the receiver of the message!  DON'T FOOL WITH THOSE SUPER USERS!

Private/Public Message
This is also a common type of message.  It is sent to a specific user, or all users, on the board.  Private messages can only be read by the author, receiver, and a super user.

Password Message
This message type is very simular to the private message.  With a password message only the author, receiver, super user, or anyone that knows the password for the message can read it.  A password of up to seven characters can be specified.

Contract Message
Contract messages are very simular to private messages.  However, they can only be deleted by the author and a super user.  The receiver of the message cannot delete it unless he happens to be a super user.  Finally, the receiver of the message can inspect the message later on to see if it has been read by the receiver.  That information will be shown in the header of the message.

         Robert Thurman -- A Modern Day Pioneer

By now, you are probably pretty tired of reading this bull pucky, but it 
gets worse.  Robert Thurman is a modern day pioneer of advance programing 
never matched by anyone since his time.  His percision and expertise has 
never nor will be matched by anyone in history.  He also eagerly and 
selflessly gave his gift of programming to make the self centered and 
greedy Red Ryder Host SysOps look good to their worthless users.  Uhhhh, I 
didn't mean to say that, uhhh, I meant to say, Robert Thurman's greatness 
can be summed up in one of his quotes...       "Eat lots of Toast"
Yes, those immortal words shall live forever in the hearts of his users.  
While those immortal words are no longer displayed for all to see, all 
good American people shall remember his words and remember him!

              Robert Thurman -- May his toast be ever golden !!!

Oh yeah, there's a hidden feature.  If you press Control-X while editing a 
line, then the whole line will be deleted.


                               THE  END

-- part contents for background part 3
----- text -----
Thu, Sep 22, 1988, 9:08 AM